|
Hallo,
ich möchte in einem Word Dokument an einer Textmarke zunächst Text und darunter eine Tabelle einfügen. Ich habe schon viel ausprobiert, komme aber nicht auf die richtige Lösung. Aktuell wird bei mir Text eingefügt, darunter folgt eine Leerzeile und darunter dann erst die Tabelle. Wenn ich .insertbreak weglasse, so erscheint mein Text leider unter der Tabelle.
Sub TabelleUndText(AppWord As Microsoft.Office.Interop.Word.Application, wdDoc As Microsoft.Office.Interop.Word.Document)
...
Dim TMRange As Object
wdDoc.Bookmarks("bookmark").Select()
TMRange = AppWord.ActiveDocument.Bookmarks("bookmark").Range
TMRange.InsertBreak(6)
Appword.Selection.Next
AppWord.ActiveDocument.Bookmarks.Add("bookmark1", TMRange)
TMRange = AppWord.ActiveDocument.Bookmarks("bookmark").Range
TMRange.Text = "Text über Tabelle"
Dim wdTable As Object
Dim iNumRows As Integer
Dim iNumColumns As Integer
iNumRows = 9
iNumColumns = 2
wdTable = wdDoc.Tables.Add(AppWord.ActiveDocument.Bookmarks("bookmark1").Range, NumRows:=iNumRows, NumColumns:=iNumColumns)
...
End Sub
Im Prinzip ist dies auch nur ein Zwischenschritt für meine Endlösung, da ich die Textstellen mit Text über eine Tabelle dynamisch programmieren möchte. Zu Beginn kenne ich die Anzahl der Tabellen nicht, daher gehe ich bisher davon aus, dass ich ausgehend von der ersten Textmarke mehrere weitere Textmarken einfügen müsste. Eventuell führt dies in der Handhabung auch nochmal zu einer etwas anderen Lösung.Über Hilfe wäre ich sehr dankbar.
|